#!/usr/bin/perl -w # used for syntax hightlighting
package clreqd_modules;

use strict;
use Sys::Hostname;

		# $::CLREQD_SOFTWARE_VERSION="Unknown";
sub get_node_info {
my %ARGS=@_;
my $str="";

	local $SIG{CHLD}='DEFAULT';
	$str=`uname -sr`; chomp $str;
	$str=hostname . "|$str";
	if(-f "$::ENV{TRUECL_CFG}/VERSION") {
		my $fd;
		if(open($fd,"$::ENV{TRUECL_CFG}/VERSION")) {
			my $x=<$fd>; chomp $x;
			$str.="|$x";
			close($fd);
			if($x ne $::CLREQD_SOFTWARE_VERSION) {
				$str.=" [Running as: $::CLREQD_SOFTWARE_VERSION]";
			}
		}
	} else {
		$str.="|Unknown";
	}
	return $str;
}

1;
